home *** CD-ROM | disk | FTP | other *** search
/ s-gikan2.maizuru-ct.ac.jp / s-gikan2.maizuru-ct.ac.jp.zip / s-gikan2.maizuru-ct.ac.jp / pub / ncvc352_install.exe / {app} / scripts / transpose_macro_set / macro_sample.ncd < prev    next >
Text File  |  2004-10-28  |  342b  |  26 lines
  1. %
  2. G92X0Y0Z10.
  3. G65P10R30.A0B30K12X0Y0Z-18.H3.Q3.F20S3000M0
  4. M30
  5. %
  6.  
  7.  
  8.  
  9. O10(bolt_hole_circle)
  10.  
  11. G90
  12. S#19
  13. M3
  14. IF[ROUND[#13] EQ 1] THEN M8
  15. G83X[#18*COS[#1]+#24]Y[#18*SIN[#1]+#25]Z#26Q#17R#11F#9G99
  16.  
  17. #31=1
  18. WHILE[#31 LT #6]DO1
  19. #32=#2*#31+#1
  20. X[#18*COS[#32]+#24]Y[#18*SIN[#32]+#25]
  21. #31=#31+1
  22. END1
  23. IF[ROUND[#13] EQ 1]THEN M9
  24. M5
  25. M99
  26.